<html>
 <head>
  <meta charset="utf-8"/>
  <meta content="width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no" name="viewport"/>
  <title>
   Ihavenothing的回复  | 数螺 | NAUT IDEA
  </title>
  <link href="http://cdn.bootcss.com/bootstrap/3.3.6/css/bootstrap-theme.min.css" rel="stylesheet"/>
  <link href="http://cdn.bootcss.com/bootstrap/3.3.6/css/bootstrap.min.css" rel="stylesheet"/>
  <style type="text/css">
   #xmain img {
                  max-width: 100%;
                  display: block;
                  margin-top: 10px;
                  margin-bottom: 10px;
                }

                #xmain p {
                    line-height:150%;
                    font-size: 16px;
                    margin-top: 20px;
                }

                #xmain h2 {
                    font-size: 24px;
                }

                #xmain h3 {
                    font-size: 20px;
                }

                #xmain h4 {
                    font-size: 18px;
                }


                .header {
	           background-color: #0099ff;
	           color: #ffffff;
	           margin-bottom: 20px;
	        }

	        .header p {
                  margin: 0px;
                  padding: 10px 0;
                  display: inline-block;  
                  vertical-align: middle;
                  font-size: 16px;
               }

               .header a {
                 color: white;
               }

              .header img {
                 height: 25px;
              }
  </style>
  <script src="http://cdn.bootcss.com/jquery/3.0.0/jquery.min.js">
  </script>
  <script src="http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML" type="text/javascript">
   MathJax.Hub.Config({elements: ["bbpress-forums"]});
  </script>
  <script src="http://nautstatic-10007657.file.myqcloud.com/static/css/readability.min.js" type="text/javascript">
  </script>
  <script type="text/javascript">
   $(document).ready(function() {
                 var loc = document.location;
                 var uri = {
                  spec: "http://cos.name/cn/profile/81532/replies/page/110/",
                  host: "http://cos.name",
                  prePath: "http://cos.name",
                  scheme: "http",
                  pathBase: "http://cos.name/"
                 };
    
                 var documentClone = document.cloneNode(true);
                 var article = new Readability(uri, documentClone).parse();
     
                 document.getElementById("xmain").innerHTML = article.content;
                });
  </script>
  <!-- 1466463549: Accept with keywords: (title(0.0):论坛, topn(0.2):定义,符号,个数,帖子,行尾,目录,函数,空行,用户名,解决方案,例子,参数,计算,类型,赋值,美化,变量,智能,数据类型,矩阵,问题,命令,整理,指针,语句,提示符,标记,代码,主题,对角).-->
 </head>
 <body class="bbp-user-page single singular bbpress paged-110 single-author sidebar" onload="">
  <div class="header">
   <div class="container">
    <div class="row">
     <div class="col-xs-6 col-sm-6 text-left">
      <a href="/databee">
       <img src="http://nautidea-10007657.cos.myqcloud.com/logo_white.png"/>
      </a>
      <a href="/databee">
       <p>
        数螺
       </p>
      </a>
     </div>
     <div class="hidden-xs col-sm-6 text-right">
      <p>
       致力于数据科学的推广和知识传播
      </p>
     </div>
    </div>
   </div>
  </div>
  <div class="container text-center">
   <h1>
    Ihavenothing的回复
   </h1>
  </div>
  <div class="container" id="xmain">
   <div class="hfeed site" id="page">
    <header class="site-header" id="masthead" role="banner">
     <div id="cos-logo">
      <a href="http://cos.name/cn">
       <img src="http://cos.name/cn/wp-content/themes/COS-forest/images/headers/cos-logo.png"/>
      </a>
     </div>
     <div class="navbar" id="navbar">
      <nav class="navigation main-navigation" id="site-navigation" role="navigation">
       <h3 class="menu-toggle">
        菜单
       </h3>
       <div class="menu-%e8%8f%9c%e5%8d%951-container">
        <ul class="nav-menu" id="menu-%e8%8f%9c%e5%8d%951">
         <li class="menu-item menu-item-type-custom menu-item-object-custom menu-item-home menu-item-407772" id="menu-item-407772">
          <a href="http://cos.name/cn/">
           论坛首页
          </a>
         </li>
         <li class="menu-item menu-item-type-custom menu-item-object-custom menu-item-407773" id="menu-item-407773">
          <a href="http://cos.name/cn/forums/">
           讨论区
          </a>
         </li>
         <li class="menu-item menu-item-type-custom menu-item-object-custom menu-item-407774" id="menu-item-407774">
          <a href="http://cos.name/cn/wp-login.php?action=register">
           注册
          </a>
         </li>
         <li class="menu-item menu-item-type-custom menu-item-object-custom menu-item-407819" id="menu-item-407819">
          <a href="http://cos.name/">
           主站
          </a>
         </li>
        </ul>
       </div>
      </nav>
      <!-- #site-navigation -->
     </div>
     <!-- #navbar -->
    </header>
    <!-- #masthead -->
    <div class="site-main" id="main">
     <div class="content-area" id="primary">
      <div class="site-content" id="content" role="main">
       <article class="post-0 type- status-publish hentry" id="post-0">
        <header class="entry-header">
         <h1 class="entry-title">
          Ihavenothing
         </h1>
        </header>
        <!-- .entry-header -->
        <div class="entry-content">
         <div id="bbpress-forums">
          <div id="bbp-user-wrapper">
           <div id="bbp-single-user-details">
            <div id="bbp-user-avatar">
             <span class="vcard">
              <a class="url fn n" href="http://cos.name/cn/profile/81532/" rel="me" title="Ihavenothing">
               <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=150&amp;d=monsterid&amp;r=g"/>
              </a>
             </span>
            </div>
            <!-- #author-avatar -->
            <div id="bbp-user-navigation">
             <ul>
              <li class="">
               <span class="vcard bbp-user-profile-link">
                <a class="url fn n" href="http://cos.name/cn/profile/81532/" rel="me" title="Ihavenothing的档案">
                 档案
                </a>
               </span>
              </li>
              <li class="">
               <span class="bbp-user-topics-created-link">
                <a href="http://cos.name/cn/profile/81532/topics/" title="Ihavenothing发起的主题">
                 发起的主题
                </a>
               </span>
              </li>
              <li class="current">
               <span class="bbp-user-replies-created-link">
                <a href="http://cos.name/cn/profile/81532/replies/" title="Ihavenothing创建的回复">
                 创建的回复
                </a>
               </span>
              </li>
              <li class="">
               <span class="bbp-user-favorites-link">
                <a href="http://cos.name/cn/profile/81532/favorites/" title="Ihavenothing的收藏夹">
                 收藏夹
                </a>
               </span>
              </li>
             </ul>
            </div>
            <!-- #bbp-user-navigation -->
           </div>
           <!-- #bbp-single-user-details -->
           <div id="bbp-user-body">
            <div class="bbp-user-replies-created" id="bbp-user-replies-created">
             <h2 class="entry-title">
              回复的主题
             </h2>
             <div class="bbp-user-section">
              <div class="bbp-pagination">
               <div class="bbp-pagination-count">
                查看 15 个帖子 - 1,636 到 1,650（总计 1,726 个）
               </div>
               <div class="bbp-pagination-links">
                <a class="prev page-numbers" href="http://cos.name/cn/profile/81532/replies/page/109/">
                 ←
                </a>
                <a class="page-numbers" href="http://cos.name/cn/profile/81532/replies/">
                 1
                </a>
                <span class="page-numbers dots">
                 …
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/81532/replies/page/109/">
                 109
                </a>
                <span class="page-numbers current">
                 110
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/81532/replies/page/111/">
                 111
                </a>
                <span class="page-numbers dots">
                 …
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/81532/replies/page/116/">
                 116
                </a>
                <a class="next page-numbers" href="http://cos.name/cn/profile/81532/replies/page/111/">
                 →
                </a>
               </div>
              </div>
              <ul class="forums bbp-replies" id="topic-0-replies">
               <li class="bbp-header">
                <div class="bbp-reply-author">
                 作者
                </div>
                <!-- .bbp-reply-author -->
                <div class="bbp-reply-content">
                 帖子
                </div>
                <!-- .bbp-reply-content -->
               </li>
               <!-- .bbp-header -->
               <li class="bbp-body">
                <div class="bbp-reply-header" id="post-268402">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年4月19日 上午8:45
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14918/">
                    n组数据两两做cor.test，不用显示循环怎么做？
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14918/#post-268402">
                   4 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-268402 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-14918 bbp-reply-position-4 user-id-81532 post-268402 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   我用C做了一下循环，速度稍微快了一点，不过感觉如版主所说，其改变不是本质性的。
                   <br/>
                   一个500行200列的矩阵（200个变量），测试的结果如下：
                  </p>
                  <pre class="highlight ">&gt; mat.test=matrix(rnorm(500*200),500,200);
&gt; system.time(.Call("cfun",mat.test,500,200,quote(f(x,y)),new.env()));
 用户  系统  流逝 
14.89  0.00 14.93 
&gt; system.time(fr(mat.test));
 用户  系统  流逝 
19.16  0.00 19.22 
</pre>
                  <p>
                   基本上只是稍稍有些改善，毕竟计算都是用R自己的函数。
                  </p>
                  <p>
                   C的代码、编译出的dll和测速用的R代码放在附件中了，如果觉得有必要的话可以直接用C的程序。程序返回的是一个list，里面包含了两个矩阵，第一个矩阵是存放P值的，有用的数值放在下三角中，第i行第j列的元素就是原矩阵第i列和第j列的计算结果；第二个矩阵存放的是置信区间，下三角是下界，上三角是上界。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-268398">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年4月19日 上午6:50
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14939/">
                    大家对于numeric(0)这样的数怎么判别？
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14939/#post-268398">
                   2 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-268398 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-14939 bbp-reply-position-2 user-id-81532 post-268398 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   这样不是已经很好了吗……
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-268397">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年4月19日 上午6:49
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/12136/">
                    Eclipse + StatET真的不错。
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/12136/page/3/#post-268397">
                   41 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-268397 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-12136 bbp-reply-position-41 user-id-81532 post-268397 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <blockquote class="d4pbbc-quote">
                   <p>
                    [b]引用第39楼[i]linusx[/i]于[i]2009-04-19 10:11[/i]发表的“”[/b]:
                    <br/>
                    R2.9用不了
                   </p>
                  </blockquote>
                  <p>
                   我没有遇到问题，我猜想你可能是装了新的R之后目录也有所改变，比如原来的“***\R-2.8.1”变成了“***\R-2.9.0”。这个需要重新在Eclipse里面设置一下路径，具体方式是Window-&gt;Preferences-&gt;StatET-&gt;R Interaction-&gt;R Environments，然后将原来的目录改为新的。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-268377">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年4月18日 下午3:31
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14929/">
                    请教人大试验设计（本科）用什么教材
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14929/#post-268377">
                   2 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-268377 -->
                <div class="even bbp-parent-forum-1005 bbp-parent-topic-14929 bbp-reply-position-2 user-id-81532 post-268377 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   刘文卿老师的《实验设计》，清华大学出版社。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-268295">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年4月17日 下午12:49
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14233/">
                    R 2.9.0 4月17日！
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14233/#post-268295">
                   3 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-268295 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-14233 bbp-reply-position-3 user-id-81532 post-268295 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   2.9.0出喽！
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-268290">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年4月17日 上午10:02
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14918/">
                    n组数据两两做cor.test，不用显示循环怎么做？
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14918/#post-268290">
                   3 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-268290 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-14918 bbp-reply-position-3 user-id-81532 post-268290 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   用C呢？
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-267978">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年4月11日 上午2:39
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14434/">
                    WIN-XP下R轻松调用C
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14434/#post-267978">
                   4 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-267978 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-14434 bbp-reply-position-4 user-id-81532 post-267978 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   我来补充一点，在R中调用C还有另外一种方式，那就是利用一些在/R目录/include/*.h中定义好的命令。就拿cloud_wei的例子来说，可以用下面这种方式来写：
                  </p>
                  <pre class="highlight ">#include &lt;R.h&gt;
#include &lt;Rdefines.h&gt;

//Use .Call("fac2",n) in R!
SEXP fac2(SEXP n){
   int i,j,k,n_c;
   double m=0,*m_rp;
   PROTECT(n=AS_INTEGER(n));//接受的参数是SEXP类型，需要再具体指定为INTEGER。
                            //处理小数可以用AS_NUMERIC。
                            //这个过程需要放在PROTECT语句中。
   n_c=INTEGER_VALUE(n);    //把INTEGER类型变量的值赋给C中的int型变量。
   for(i=1;i&lt;=n_c;i++){
       for(j=1;j&lt;=n_c;j++){
           for(k=1;k&lt;=n_c;k++){
               m=m+i*j*k;
           }
       }
   }
   SEXP m_r;                //这个变量用来返回给R。
   PROTECT(m_r=NEW_NUMERIC(1));     //同样要指定m_r的具体类型，同时分配空间。
                                    //NEW_NUMERIC后面的括号中是向量的长度。
   m_rp=NUMERIC_POINTER(m_r);       //为了给m_r赋值，需要用指针操作。
                                    //m_rp在前面定义过了，NUMERIC型对应的是
                                    //double型指针。
   m_rp[0]=m;
   UNPROTECT(2);            //这个原理我不太懂，从形式上看前面有多少个PROTECT
                            //这里括号中就应该为多少。
   return(m_r);
}</pre>
                  <p>
                   稍微解释一下，SEXP这个数据类型可以说是个大框，貌似大部分的R对象都可以用这种类型传递给C，但是在C中使用这种类型的变量时，还需要具体为它指定类型，比如INTEGER，NUMERIC等，这个可以在/R目录/include/Rdefines.h的50行左右看出一些端倪。
                   <br/>
                   SEXP类型的变量可以通过某些方法转成（更准确地说是赋值给）C中一般的变量类型，比如上面例子中的n_c=INTEGER_VALUE(n)，n是SEXP的INTEGER类型，n_c是C中的int型，这个也可以看Rdefines.h中的相关定义。
                   <br/>
                   上面这两步就是把R中的对象传递给C，然后转换成C可以直接处理的数据类型，接下来就是用C进行一系列的计算。那么最后一个问题自然就是把C计算的结果再返回给R。前面已经说过，SEXP是个大框，而它恰恰也是R可以接受的数据类型，所以现在就是想办法把C的类型再转为SEXP型。这个过程可以通过指针来完成。还是以上例来说明，先定义一个新的SEXP型变量（m_r）并指定具体类型（NUMERIC），然后用NUMERIC_POINTER命令将其地址赋给一个已经定义好的指针m_rp（注意类型之间的对应关系，如NUMERIC对应的是double型指针），然后对指针进行操作，就相当于是对m_r进行了赋值，最后把结果返回给R。
                  </p>
                  <p>
                   另外要说明的一点是，利用这种方式写成的C函数，在R中要用.Call()来调用，参数的形式与.C()一样，先是函数名，然后是相关的参数。上例在R中可以这样调用：
                  </p>
                  <pre class="highlight ">.Call("fac2",n=1000)</pre>
                  <p>
                   如果大家有兴趣的话，推荐大家看看这个：
                   <a class="d4pbbc-url" href="http://www.sfu.ca/~sblay/R-C-interface.txt" rel="nofollow" target="_blank">
                    http://www.sfu.ca/~sblay/R-C-interface.txt
                   </a>
                   ，里面的例子都挺典型的。此外就是翻一翻R的一些自带手册，比如Writing R Extensions，R Internals等等。这部分的内容博大精深，我才刚刚接触，所以只能先分享这么多，大家可以多多交流吧。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-267799">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年4月8日 下午3:23
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14707/">
                    设置“搜索”项
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14707/#post-267799">
                   6 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-267799 -->
                <div class="even bbp-parent-forum-988 bbp-parent-topic-14707 bbp-reply-position-6 user-id-81532 post-267799 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   已经可以用了，要搜索自己的回复的话，先进入搜索页面，在“搜索目标”中填入自己的用户名，在“搜索帖子范围”中选“回复标题与回复内容”，然后点提交就可以了。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-266564">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年3月25日 下午2:30
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14589/">
                    新手提问：一句R命令未结束，怎样换行？
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14589/#post-266564">
                   5 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-266564 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-14589 bbp-reply-position-5 user-id-81532 post-266564 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <blockquote class="d4pbbc-quote">
                   <p>
                    [b]引用第2楼[i]dingyuduan[/i]于[i]2009-03-25 20:15[/i]发表的“”[/b]:
                    <br/>
                    例如输入&gt;date&lt;-function(r);后回车
                    <br/>
                    出现的是错误提示终止这句命令，回到&gt;提示符下，而不是+提示符，我不知怎样多行输入一条完整的命令 ，谢谢指导，这是菜鸟的问题。
                   </p>
                  </blockquote>
                  <p>
                   你这儿多加了一个分号，不加就行了。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-266539">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年3月25日 上午8:34
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14056/">
                    智能整理、美化R代码（征求解决方案）
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14056/#post-266539">
                   15 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-266539 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-14056 bbp-reply-position-15 user-id-81532 post-266539 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <blockquote class="d4pbbc-quote">
                   <p>
                    [b]引用第13楼[i]cloud_wei[/i]于[i]2009-03-25 13:43[/i]发表的“”[/b]:
                    <br/>
                    两个问题：
                    <br/>
                    1. 测试例子中的中文注释在代码整理后有时全变为"?"？不知别人的机子上有没有这个问题。我的是R-2.8.1，WIN-XP.
                    <br/>
                    2. 程序中的空行是否应该考虑恰当保留，写代码时时常刻意留空行以增强可读性的。当然，可以设置一个阈值，比如2，意思是2行以内的空行不做处理，而超过2行的空行则删至2行。这个可以作为函数参数。
                   </p>
                  </blockquote>
                  <p>
                   第一个我猜是中文编码的问题，这个不太懂，等谢老大来看看吧。
                   <br/>
                   第二个应该好办，我找时间改改。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-266521">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年3月25日 上午5:28
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14581/">
                    请教：如何跳出while循环？
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14581/#post-266521">
                   2 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-266521 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-14581 bbp-reply-position-2 user-id-81532 post-266521 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   把具体的代码贴出来吧。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-266519">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年3月25日 上午4:57
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14056/">
                    智能整理、美化R代码（征求解决方案）
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14056/#post-266519">
                   13 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-266519 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-14056 bbp-reply-position-13 user-id-81532 post-266519 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   拖了这么多天，今天总算是有点成果了，目前应该解决了行尾注释的问题。先说一下我的思路：
                   <br/>
                   依然是读取代码的每一行，现在的关键就是想办法把行尾的注释给标记出来。我的做法是，先将读取的行“粉碎”成单个字符组成的向量，获取其中所有“#”符号的坐标并计算其个数（代码中就是nsharp），然后用parse()的方法分析这一行，看其中有多少个非注释性质的“#”符号（代码中是nsharp.tidy），比较这两个数值的差距，就可以获取这一行中起到注释作用的“#”符号的位置，然后对其加上标记（代码中是delEnter="*******endOfComment"），之后的工作就与前面的类似了。
                   <br/>
                   我个人感觉最麻烦的部分是用parse()分析非注释性质的“#”的个数，因为很多行可能本身不是完整的语句，不能直接用parse()读取，比如下面些情况：
                  </p>
                  <pre class="highlight ">{#</pre>
                  <p>
                   所以就需要把这些字符转成可以被parse()读取的语句。最初的想法是用一个简单的语句，比如brace;来替换掉“{”和“}”，但因为一些诡异的原因（后面会再说，比如else），最终选择的语句是“if(1){}”。而又考虑到下面的情形，
                  </p>
                  <pre class="highlight ">a=function(x)  #123
{
}
</pre>
                  <p>
                   在读取第一行时，function(x)后面没有语句，会报错，所以还得在每行的最后及“#”之前加上“{}”以“欺骗”parse()函数。举个例子来说，为了计算每一行非注释性“#”的个数，下面这一行
                  </p>
                  <pre class="highlight ">}a="123#" #这里是注释</pre>
                  <p>
                   会被转换成
                  </p>
                  <pre class="highlight ">if(1){}a=\"123\n{}#\" \n{}#这里是注释\n{}</pre>
                  <p>
                   才能被parse()识别出非注释“#”的个数是1，而这一行总共的“#”的个数是2，所以可以判断，第二个“#”是起到注释作用的符号，需要加上标记。
                   <br/>
                   这样基本就可以应付大部分的语句，但遇到一些R中的关键字，比如“else”，就可能遇到麻烦，比如parse()要求else附近要有完整的if…else结构，所以我前面才会把大括号转换成“if(1){}”这样诡异的语句。
                   <br/>
                   下面是整个函数的代码：
                  </p>
                  <pre class="highlight ">tidy.source&lt;-function(source="clipboard",nullline=TRUE,...)
{
    tidy.block&lt;-function(block.text)
    {
        exprs=parse(text=block.text);
        n=length(exprs);
        res=character(n);
        for(i in 1:n)
        {
            dep=paste(deparse(exprs[i]),collapse="\n");
            res[i]=substring(dep,12,nchar(dep)-1);
        }
        return(paste(res,collapse="\n"));
    }
    line.convert&lt;-function(line)
    {
        line.ch=unlist(strsplit(line,""));
        sharp.index=which(line.ch=="#");
        nsharp=length(sharp.index);
        line2=gsub("[{}]","if(1){}",line);
        line2=gsub("#","\n{}#",line2);
        line2=paste(line2,"\n{}",collapse="");
        line.tidy.ch=unlist(strsplit(tidy.block(line2),""));
        nsharp.tidy=length(which(line.tidy.ch=="#"));
        if(nsharp==nsharp.tidy)
        {
            return(line);
        }else
        {
            line.ch[sharp.index[nsharp.tidy+1]]="\ndelEnter=\"#";
            line.ch=c(line.ch,"endOfComment\"");
        }
        return(paste(line.ch,sep="",collapse=""));
    }
    text.lines=readLines(con=file(source),warn=FALSE);
    text.lines=gsub('^[[:space:]]+|[[:space:]]+$','',text.lines);
    if(nullline)
    {
        text.lines=ifelse(text.lines=="","isNullLine",text.lines);        
    }    
    lines.head=substring(text.lines,1,1);
    text.lines[lines.head=="#"]=paste("headOfComment=\"",text.lines[lines.head=="#"],"endOfComment\"",sep="");
    text.lines[lines.head!="#"]=sapply(text.lines[lines.head!="#"],line.convert);
    text.tidy=tidy.block(text.lines);
    text.tidy=gsub("headOfComment = \"|endOfComment\"|isNullLine","",text.tidy);
    text.tidy=gsub("\n[ ]+delEnter = \"|delEnter = \"|\ndelEnter = \""," ",text.tidy);
    cat(text.tidy,...);
}</pre>
                  <p>
                   下面的代码供测试用：
                  </p>
                  <pre class="highlight ">#### Test ####
#### Yihui Xie ####

tidy.source&lt;- function (source = "clipboard", ...)#这里有注释 
#这里有注释
{#这里也有注释
    exprs = parse(source) #这里依然有注释
    n = length(exprs)
    res = character(n)
    for(i in 1:n){
        dep = paste(deparse(exprs[i]), collapse = "\n")
        res[i] = substring(dep, 12, nchar(dep) - 1)
    }#这里也加上一个注释
    cat(paste(res, collapse = "\n"), "\n", ...)
}
###################</pre>
                  <p>
                   此外还需要交代一个bug，就是下面这种结构会报错：
                  </p>
                  <pre class="highlight ">if(...)
{
...
}
else
{
...
}</pre>
                  <p>
                   也就是}与else之间不能有换行，要改成成
                  </p>
                  <pre class="highlight ">if(...)
{
...
}else
{
...
}</pre>
                  <p>
                   才行。事实上，这是R里面我感觉一个比较奇怪的规定，因为这种结构放在函数体内不会报错，但单独运行却会，不知何故……
                  </p>
                  <p>
                   <strong class="d4pbbc-bold">
                    依cloud_wei的建议，加入了参数nullline，为真时保留空行，为假时删除空行。
                   </strong>
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-266287">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年3月23日 上午5:12
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14524/">
                    【请教】三对角矩阵在S+中用什么样的语句编写，非常感谢！
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14524/#post-266287">
                   10 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-266287 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-14524 bbp-reply-position-10 user-id-81532 post-266287 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   为简单起见，以4阶矩阵为例：
                  </p>
                  <pre class="highlight ">     [,1] [,2] [,3] [,4]
[1,] 1.25 0.50 0.00 0.00
[2,] 0.50 1.25 0.50 0.00
[3,] 0.00 0.50 1.25 0.50
[4,] 0.00 0.00 0.50 1.25</pre>
                  <p>
                   可以用下面的步骤生成：
                   <br/>
                   1、先生成对角线上的元素，相应的矩阵为x。
                  </p>
                  <pre class="highlight ">&gt; diag(rep(5/4,4))
     [,1] [,2] [,3] [,4]
[1,] 1.25 0.00 0.00 0.00
[2,] 0.00 1.25 0.00 0.00
[3,] 0.00 0.00 1.25 0.00
[4,] 0.00 0.00 0.00 1.25</pre>
                  <p>
                   2、再生成下面的这样一个矩阵，取名叫y。
                  </p>
                  <pre class="highlight ">     [,1] [,2] [,3] [,4]
[1,]    0  0.5  0.0  0.0
[2,]    0  0.0  0.5  0.0
[3,]    0  0.0  0.0  0.5
[4,]    0  0.0  0.0  0.0</pre>
                  <p>
                   3、y的转置t(y)。
                  </p>
                  <pre class="highlight ">     [,1] [,2] [,3] [,4]
[1,]  0.0  0.0  0.0    0
[2,]  0.5  0.0  0.0    0
[3,]  0.0  0.5  0.0    0
[4,]  0.0  0.0  0.5    0</pre>
                  <p>
                   4、把上面三个矩阵加起来就是你要的答案。那么注意看y的结构，它可以看作是一个3阶的对角矩阵在左边加上一列0，再在下面加上一行0，这就是cbind()和rbind()的作用。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-266284">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年3月23日 上午5:00
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14056/">
                    智能整理、美化R代码（征求解决方案）
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14056/#post-266284">
                   12 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-266284 -->
                <div class="even bbp-parent-forum-999 bbp-parent-topic-14056 bbp-reply-position-12 user-id-81532 post-266284 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   嗯，好的，昨天睡觉前就在想这个问题。
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
                <div class="bbp-reply-header" id="post-266245">
                 <div class="bbp-meta">
                  <span class="bbp-reply-post-date">
                   2009年3月22日 下午3:28
                  </span>
                  <span class="bbp-header">
                   回复：
                   <a class="bbp-topic-permalink" href="http://cos.name/cn/topic/14524/">
                    【请教】三对角矩阵在S+中用什么样的语句编写，非常感谢！
                   </a>
                  </span>
                  <a class="bbp-reply-permalink" href="http://cos.name/cn/topic/14524/#post-266245">
                   7 楼
                  </a>
                  <span class="bbp-admin-links">
                  </span>
                 </div>
                 <!-- .bbp-meta -->
                </div>
                <!-- #post-266245 -->
                <div class="odd bbp-parent-forum-999 bbp-parent-topic-14524 bbp-reply-position-7 user-id-81532 post-266245 reply type-reply status-publish hentry">
                 <div class="bbp-reply-author">
                  <a class="bbp-author-avatar" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   <img src="http://sdn.geekzu.org/avatar/f09663fd5fc04bad5e5b09daddb86fe6?s=80&amp;d=monsterid&amp;r=g"/>
                  </a>
                  <br/>
                  <a class="bbp-author-name" href="http://cos.name/cn/profile/81532/" rel="nofollow" title="查看Ihavenothing的档案">
                   Ihavenothing
                  </a>
                  <br/>
                  <div class="bbp-author-role">
                   站长
                  </div>
                 </div>
                 <!-- .bbp-reply-author -->
                 <div class="bbp-reply-content">
                  <p>
                   我觉得cloud_wei已经给了你正确答案了，还有哪你觉得不对的？
                  </p>
                 </div>
                 <!-- .bbp-reply-content -->
                </div>
                <!-- .reply -->
               </li>
               <!-- .bbp-body -->
               <li class="bbp-footer">
                <div class="bbp-reply-author">
                 作者
                </div>
                <div class="bbp-reply-content">
                 帖子
                </div>
                <!-- .bbp-reply-content -->
               </li>
               <!-- .bbp-footer -->
              </ul>
              <!-- #topic-0-replies -->
              <div class="bbp-pagination">
               <div class="bbp-pagination-count">
                查看 15 个帖子 - 1,636 到 1,650（总计 1,726 个）
               </div>
               <div class="bbp-pagination-links">
                <a class="prev page-numbers" href="http://cos.name/cn/profile/81532/replies/page/109/">
                 ←
                </a>
                <a class="page-numbers" href="http://cos.name/cn/profile/81532/replies/">
                 1
                </a>
                <span class="page-numbers dots">
                 …
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/81532/replies/page/109/">
                 109
                </a>
                <span class="page-numbers current">
                 110
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/81532/replies/page/111/">
                 111
                </a>
                <span class="page-numbers dots">
                 …
                </span>
                <a class="page-numbers" href="http://cos.name/cn/profile/81532/replies/page/116/">
                 116
                </a>
                <a class="next page-numbers" href="http://cos.name/cn/profile/81532/replies/page/111/">
                 →
                </a>
               </div>
              </div>
             </div>
            </div>
            <!-- #bbp-user-replies-created -->
           </div>
          </div>
         </div>
        </div>
        <!-- .entry-content -->
        <footer class="entry-meta">
        </footer>
        <!-- .entry-meta -->
       </article>
       <!-- #post -->
      </div>
      <!-- #content -->
     </div>
     <!-- #primary -->
     <div class="sidebar-container" id="tertiary" role="complementary">
      <div class="sidebar-inner">
       <div class="widget-area">
        <aside class="widget bbp_widget_login" id="bbp_login_widget-2">
         <h3 class="widget-title">
          登录
         </h3>
         <form action="http://cos.name/cn/wp-login.php" class="bbp-login-form" method="post">
          <fieldset>
           <legend>
            登录
           </legend>
           <div class="bbp-username">
            <label for="user_login">
             用户名:
            </label>
           </div>
           <div class="bbp-password">
            <label for="user_pass">
             密码:
            </label>
           </div>
           <div class="bbp-remember-me">
            <label for="rememberme">
             记住用户名
            </label>
           </div>
           <div class="bbp-submit-wrapper">
            <button class="button submit user-submit" id="user-submit" name="user-submit" tabindex="104" type="submit">
             登录
            </button>
           </div>
           <div class="bbp-login-links">
            <a class="bbp-register-link" href="http://cos.name/cn/wp-login.php?action=register" title="注册">
             注册
            </a>
            <a class="bbp-lostpass-link" href="http://cos.name/cn/wp-login.php?action=lostpassword" title="忘记密码">
             忘记密码
            </a>
           </div>
          </fieldset>
         </form>
        </aside>
        <aside class="widget widget_text" id="text-7">
         <h3 class="widget-title">
          搜索
         </h3>
         <div class="textwidget">
          <form action="http://www.google.com/search" id="bbp-search-form" method="get" onsubmit="Gsitesearch(this)" role="search">
           <div>
           </div>
          </form>
          <form id="bbp-search-form-baidu" onsubmit="g(this)" role="search">
           <div>
           </div>
          </form>
         </div>
        </aside>
        <aside class="widget widget_text" id="text-2">
         <h3 class="widget-title">
          新鲜事
         </h3>
         <div class="textwidget">
          <ul>
           <li>
            <a href="http://cos.name/cn/topics/">
             最新帖子
            </a>
           </li>
           <li>
            <a href="http://cos.name/cn/view/popular/">
             最热门主题
            </a>
           </li>
           <li>
            <a href="http://cos.name/cn/view/no-replies/">
             消灭零回复
            </a>
           </li>
          </ul>
         </div>
        </aside>
        <aside class="widget widget_text" id="text-3">
         <h3 class="widget-title">
          RSS订阅
         </h3>
         <div class="textwidget">
          <ul>
           <li>
            <img src="http://cos.name/wp-includes/images/rss.png"/>
            <a href="http://cos.name/cn/topics/feed/">
             所有主题
            </a>
           </li>
           <li>
            <img src="http://cos.name/wp-includes/images/rss.png"/>
            <a href="http://cos.name/cn/forums/feed/">
             所有帖子
            </a>
           </li>
          </ul>
         </div>
        </aside>
       </div>
       <!-- .widget-area -->
      </div>
      <!-- .sidebar-inner -->
     </div>
     <!-- #tertiary -->
    </div>
    <!-- #main -->
    <footer class="site-footer" id="colophon" role="contentinfo">
     <div class="site-info">
      版权所有 © 2014 统计之都 | 由
      <a href="http://wordpress.org/">
       WordPress
      </a>
      构建 | 主题修改自
      <a href="http://wordpress.org/themes/twentythirteen">
       Twenty Thirteen
      </a>
     </div>
     <!-- .site-info -->
    </footer>
    <!-- #colophon -->
   </div>
   <!-- #page -->
  </div>
 </body>
</html>